Növekményes sorozat kettő hatványaival, előltesztelő (while) ciklussal (Novekmenyes.pas)
program Novekmenyes;
uses crt;
var i,a,n,k:integer;
BEGIN
write('n:=');
readln(n);
i:=1;
a:=1;
k:=1;
k = változó növekmény
while(i<=n) do begin
writeln(a);
a:=a+k;
Hozzáadjuk az a változóhoz a változó növekményt.
k:=k*2;
A változó növekményt szorozzuk 2-vel.
i:=i+1;
end;
END.
Növekményes sorozat kettő hatványaival, for ciklussal (NovekmenyesV1.pas)
program NovekmenyesV1;
uses crt;
var i,a,n,k:integer;
BEGIN
write('n:=');
readln(n);
a:=1;
k:=1;
for i:=1 to n do begin
writeln(a);
a:=a+k;
k:=k*2;
end;
END.
Növekményes sorozat kettő hatványaival, hátultesztelő (repeat - until) ciklussal (NovekmenyesV2.pas)
program NovekmenyesV2;
uses crt;
var i,a,n,k:integer;
BEGIN
write('n:=');
readln(n);
i:=1;
a:=1;
k:=1;
repeat
writeln(a);
a:=a+k;
k:=k*2;
i:=i+1;
until(i>n);
END.